Адміністрація вирішила продати даний сайт. За детальною інформацією звертайтесь за адресою: rozrahu@gmail.com

Теорія формальних граматик і мов.

Інформація про навчальний заклад

ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут прикладної математики та фундаментальних наук
Факультет:
Не вказано
Кафедра:
Кафедра прикладної математики

Інформація про роботу

Рік:
2007
Тип роботи:
Лабораторна робота
Предмет:
Дискретна математика
Група:
ПМ-21

Частина тексту файла

Міністерство освіти і науки України Національний Університет „Львівська політехніка” Інститут прикладної математики і фундаментальних наук Кафедра прикладної математики Лабораторна робота №4 Тема: Теорія формальних граматик і мов Виконала: студентка групи ПМ – 21 Львів 2007 Мета роботи: Ознайомитись з теорією формальних граматик і мов Завдання: Побудувати граматику, яка породжує основні консанти дійсного типу мови Pascal з фіксованою точкою. Програма: Dim str1, str2, str3, str4 As String Dim str() As String Dim a, i As Byte Option Explicit Private Sub Command1_Click() ‘Ввід даних ‘Термінальних символів If Text1.Text <> "" Then str1 = str1 + " " + CStr(Text1.Text) + ", " Text1.Text = "" Text1.SetFocus End If ‘Нетермінальних символів If Text2.Text <> "" Then str2 = str2 + " " + CStr(Text2.Text) Text2.Text = "" Text2.SetFocus End If ‘Аксіоми If Text3.Text <> "" Then str3 = str3 + " " + CStr(Text3.Text) Text3.Text = "" Text3.SetFocus End If ‘Правил If Text4.Text <> "" Then i = i + 1 ReDim Preserve str(i) str(i) = CStr(Text4.Text) Text4.Text = "" Text4.SetFocus End If End Sub Private Sub Command2_Click() If Text1.Text <> "" Then str1 = str1 + " " + CStr(Text1.Text) Text1.Text = "" Text2.SetFocus End If If Text2.Text <> "" Then str2 = str2 + " " + CStr(Text2.Text) Text2.Text = "" Text3.SetFocus End If If Text3.Text <> "" Then str3 = str3 + " " + CStr(Text3.Text) Text3.Text = "" Text4.SetFocus End If If Text4.Text <> "" Then i = i + 1 ReDim Preserve str(i) str(i) = CStr(Text4.Text) Text4.Text = "" Call pobudova End If End Sub Sub pobudova() ‘Побудова граматики і мови 'For a = 1 To i - 1 'str4 = str4 + str3 + "--->" + str(a) + ";" + Chr(13) + Chr(10) 'Next a 'str4 = str4 + str3 + "--->" + str(i) 'Text5.Text = "U(òåðì³íàë.)= " + str1 + Chr(13) + Chr(10) + _ '"U(íåòåðì³í.) = " + str2 + Chr(13) + Chr(10) + _ '"i = " + str3 + Chr(13) + Chr(10) + _ '"Ï = " + str4 For a = 1 To i - 1 str4 = str4 + str3 + "--->" + str(a) + ";" Next a str4 = str4 + str3 + "--->" + str(i) Text5.Text = "<" + str1 + "; " + str2 + "; " + str3 + "; " + str4 + ">" For a = 1 To i Text6.Text = Text6 + str(a) + Chr(13) + Chr(10) Next a End Sub Private Sub Form_Load() i = 0 End Sub Приклад  Висновок: У даній лабораторній роботі я ознайомилась є теорією формальних граматик і мов.
Антиботан аватар за замовчуванням

01.01.1970 03:01

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, увійдіть або зареєструйтесь.

Завантаження файлу

Якщо Ви маєте на своєму комп'ютері файли, пов'язані з навчанням( розрахункові, лабораторні, практичні, контрольні роботи та інше...), і Вам не шкода ними поділитись - то скористайтесь формою для завантаження файлу, попередньо заархівувавши все в архів .rar або .zip розміром до 100мб, і до нього невдовзі отримають доступ студенти всієї України! Ви отримаєте грошову винагороду в кінці місяця, якщо станете одним з трьох переможців!
Стань активним учасником руху antibotan!
Поділись актуальною інформацією,
і отримай привілеї у користуванні архівом! Детальніше

Оголошення від адміністратора

Антиботан аватар за замовчуванням

пропонує роботу

Admin

26.02.2019 12:38

Привіт усім учасникам нашого порталу! Хороші новини - з‘явилась можливість кожному заробити на своїх знаннях та вміннях. Тепер Ви можете продавати свої роботи на сайті заробляючи кошти, рейтинг і довіру користувачів. Потрібно завантажити роботу, вказати ціну і додати один інформативний скріншот з деякими частинами виконаних завдань. Навіть одна якісна і всім необхідна робота може продатися сотні разів. «Головою заробляти» продуктивніше ніж руками! :-)

Новини